perm filename DD[DD,BGB] blob
sn#001293 filedate 1971-10-08 generic text, type T, neo UTF8
00100 REQUIRE "DDCALL[DD,BGB]" LOAD_MODULE;
00200
00300 EXTERNAL PROCEDURE ERASTV;
00400 EXTERNAL PROCEDURE ERASDD;
00500 EXTERNAL PROCEDURE DPYDD (STRING FILE;INTEGER ARRAY SWINDO,OWINDO,LEVELS);
00600
00700 EXTERNAL PROCEDURE SETWND (REAL ARRAY SWN; INTEGER ARRAY DWN);
00800 EXTERNAL PROCEDURE SETLWN (REAL LX,LY,LDX,LDY);
00900 EXTERNAL PROCEDURE SETDWN (INTEGER R,C,M,N );
01000
01100 EXTERNAL PROCEDURE AI (SHORT REAL X,Y);
01200 EXTERNAL PROCEDURE AV (SHORT REAL X,Y);
01300 EXTERNAL PROCEDURE DOT (SHORT REAL X,Y);
01400 EXTERNAL PROCEDURE ARC (REAL R,A,B);
01500 EXTERNAL PROCEDURE RADIAL (REAL R1,R2,B);
01600 EXTERNAL REAL PROCEDURE DMS (INTEGER X);
01700
01800 EXTERNAL PROCEDURE DDSTR (REAL X,Y,CHN;STRING STR);
01900 EXTERNAL PROCEDURE DDSTRC (INTEGER R,C,CHN; STRING S);
02000 EXTERNAL PROCEDURE DDTYPE (INTEGER Y,GLITCHES,LINES);
02100
02200 EXTERNAL PROCEDURE SHOWDD (INTEGER LEVCHN);
02300 EXTERNAL PROCEDURE DRUMDD (INTEGER FRAME);
02400 EXTERNAL PROCEDURE TVSEG (STRING FILE,SEGNAM);